MacTech 1 to 12

home *** CD-ROM | disk | FTP | other *** search

/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.05 May 86.sit / 02.05 May 86 / Pascal May 86 / X_Mod1.Pas < prev next >

MacBinary | 1994-11-06 | 1.8 KB | [TEXT/EDIT]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

browse contents |

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	TheDraw Pascal screen Image `(image/theDrawPascalScreenImage)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sun Nov 6 14:39:59 1994, modified Sun Nov 6 14:39:59 1994, creator Macintosh Edit, type ASCII, 1209 bytes "X_Mod1.Pas" , at 0x539 348 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[EDIT]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 58 5f 4d 6f 64 31 | 2e 50 61 73 00 00 00 00 |..X_Mod1|.Pas....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 04 b9 00 | 00 01 5c aa e2 e1 8f aa |........|..\.....|
|00000060| e2 e1 8f 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e9 c4 00 00 |........|........|
|00000080| 50 52 4f 47 52 41 4d 20 | 58 5f 6d 6f 64 31 28 49 |PROGRAM |X_mod1(I|
|00000090| 6e 70 75 74 2c 4f 75 74 | 70 75 74 29 3b 0d 0d 7b |nput,Out|put);..{|
|000000a0| 24 49 20 4d 65 6d 54 79 | 70 65 73 2e 69 70 61 73 |$I MemTy|pes.ipas|
|000000b0| 7d 0d 7b 24 49 20 51 75 | 69 63 6b 44 72 61 77 2e |}.{$I Qu|ickDraw.|
|000000c0| 69 70 61 73 7d 0d 7b 24 | 49 20 4f 53 49 6e 74 66 |ipas}.{$|I OSIntf|
|000000d0| 2e 69 70 61 73 7d 0d 7b | 24 49 20 54 6f 6f 6c 49 |.ipas}.{|$I ToolI|
|000000e0| 6e 74 66 2e 69 70 61 73 | 7d 0d 7b 24 49 20 50 61 |ntf.ipas|}.{$I Pa|
|000000f0| 63 6b 49 6e 74 66 2e 69 | 70 61 73 7d 0d 0d 7b 24 |ckIntf.i|pas}..{$|
|00000100| 54 20 41 50 50 4c 20 52 | 41 42 53 7d 0d 7b 24 42 |T APPL R|ABS}.{$B|
|00000110| 2b 7d 0d 0d 7b 24 49 20 | 20 58 5f 67 6c 6f 62 61 |+}..{$I | X_globa|
|00000120| 6c 73 2e 69 70 61 73 7d | 0d 0d 7b 24 55 3c 20 58 |ls.ipas}|..{$U< X|
|00000130| 5f 6d 6f 64 32 2f 43 6f | 64 65 7d 0d 7b 24 55 3c |_mod2/Co|de}.{$U<|
|00000140| 20 58 5f 6d 6f 64 33 2f | 43 6f 64 65 7d 0d 0d 50 | X_mod3/|Code}..P|
|00000150| 52 4f 43 45 44 55 52 45 | 20 20 20 50 5f 6d 6f 64 |ROCEDURE|   P_mod|
|00000160| 31 5f 70 72 6f 63 31 20 | 28 76 5f 76 61 72 31 20 |1_proc1 |(v_var1 |
|00000170| 3a 20 53 74 72 32 35 35 | 29 20 3b 20 46 4f 52 57 |: Str255|) ; FORW|
|00000180| 41 52 44 3b 0d 20 20 50 | 52 4f 43 45 44 55 52 45 |ARD;.  P|ROCEDURE|
|00000190| 20 50 5f 6d 6f 64 32 5f | 70 72 6f 63 31 20 28 76 | P_mod2_|proc1 (v|
|000001a0| 5f 76 61 72 31 20 3a 20 | 53 74 72 32 35 35 29 20 |_var1 : |Str255) |
|000001b0| 3b 20 45 58 54 45 52 4e | 41 4c 3b 0d 20 20 50 52 |; EXTERN|AL;.  PR|
|000001c0| 4f 43 45 44 55 52 45 20 | 50 5f 6d 6f 64 33 5f 70 |OCEDURE |P_mod3_p|
|000001d0| 72 6f 63 31 20 28 76 5f | 76 61 72 31 20 3a 20 53 |roc1 (v_|var1 : S|
|000001e0| 74 72 32 35 35 29 20 3b | 20 45 58 54 45 52 4e 41 |tr255) ;| EXTERNA|
|000001f0| 4c 3b 0d 50 52 4f 43 45 | 44 55 52 45 20 20 20 50 |L;.PROCE|DURE   P|
|00000200| 5f 6d 6f 64 31 5f 70 72 | 6f 63 32 20 28 76 5f 76 |_mod1_pr|oc2 (v_v|
|00000210| 61 72 31 20 3a 20 53 74 | 72 32 35 35 29 20 3b 20 |ar1 : St|r255) ; |
|00000220| 46 4f 52 57 41 52 44 3b | 20 0d 0d 7b 3d 3d 3d 3d |FORWARD;| ..{====|
|00000230| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000240| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000250| 7d 0d 7b 3d 3d 20 50 5f | 6d 6f 64 31 5f 70 72 6f |}.{== P_|mod1_pro|
|00000260| 63 31 20 28 76 5f 76 61 | 72 31 20 3a 20 53 74 72 |c1 (v_va|r1 : Str|
|00000270| 32 35 35 29 20 3d 3d 7d | 0d 7b 3d 3d 3d 3d 3d 3d |255) ==}|.{======|
|00000280| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000290| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 7d 0d |========|======}.|
|000002a0| 50 52 4f 43 45 44 55 52 | 45 20 50 5f 6d 6f 64 31 |PROCEDUR|E P_mod1|
|000002b0| 5f 70 72 6f 63 31 3b 0d | 42 45 47 49 4e 0d 20 20 |_proc1;.|BEGIN.  |
|000002c0| 77 72 69 74 65 6c 6e 20 | 28 76 5f 76 61 72 31 29 |writeln |(v_var1)|
|000002d0| 3b 0d 20 20 77 72 69 74 | 65 6c 6e 20 28 27 49 6e |;.  writ|eln ('In|
|000002e0| 20 50 5f 6d 6f 64 31 5f | 70 72 6f 63 31 27 29 3b | P_mod1_|proc1');|
|000002f0| 0d 45 4e 44 3b 0d 0d 7b | 3d 3d 3d 3d 3d 3d 3d 3d |.END;..{|========|
|00000300| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000310| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 7d 0d 7b 3d 3d |========|===}.{==|
|00000320| 20 50 5f 6d 6f 64 31 5f | 70 72 6f 63 32 20 28 76 | P_mod1_|proc2 (v|
|00000330| 5f 76 61 72 31 20 3a 53 | 74 72 32 35 35 29 20 3d |_var1 :S|tr255) =|
|00000340| 3d 7d 0d 7b 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |=}.{====|========|
|00000350| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000360| 3d 3d 3d 3d 3d 3d 3d 7d | 0d 50 52 4f 43 45 44 55 |=======}|.PROCEDU|
|00000370| 52 45 20 50 5f 6d 6f 64 | 31 5f 70 72 6f 63 32 3b |RE P_mod|1_proc2;|
|00000380| 0d 42 45 47 49 4e 0d 20 | 20 77 72 69 74 65 6c 6e |.BEGIN. | writeln|
|00000390| 20 28 76 5f 76 61 72 31 | 29 3b 0d 20 20 77 72 69 | (v_var1|);.  wri|
|000003a0| 74 65 6c 6e 20 28 27 49 | 6e 20 50 5f 6d 6f 64 31 |teln ('I|n P_mod1|
|000003b0| 5f 70 72 6f 63 32 27 29 | 3b 0d 45 4e 44 3b 0d 0d |_proc2')|;.END;..|
|000003c0| 7b 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |{=======|========|
|000003d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 7d 0d 7b 3d |========|====}.{=|
|000003e0| 3d 20 65 78 65 63 75 74 | 69 6f 6e 20 62 65 67 69 |= execut|ion begi|
|000003f0| 6e 73 20 68 65 72 65 20 | 3d 3d 7d 0d 7b 3d 3d 3d |ns here |==}.{===|
|00000400| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000410| 3d 3d 3d 3d 3d 3d 3d 3d | 7d 0d 42 45 47 49 4e 0d |========|}.BEGIN.|
|00000420| 20 20 67 5f 67 6c 6f 62 | 61 6c 31 20 3a 3d 20 30 |  g_glob|al1 := 0|
|00000430| 30 30 3b 0d 20 20 52 45 | 50 45 41 54 0d 20 20 20 |00;.  RE|PEAT.   |
|00000440| 20 50 5f 6d 6f 64 31 5f | 70 72 6f 63 31 20 28 27 | P_mod1_|proc1 ('|
|00000450| 46 72 6f 6d 20 6d 6f 64 | 31 5f 6d 61 69 6e 27 29 |From mod|1_main')|
|00000460| 3b 0d 20 20 20 20 50 5f | 6d 6f 64 32 5f 70 72 6f |;.    P_|mod2_pro|
|00000470| 63 31 20 28 27 46 72 6f | 6d 20 6d 6f 64 31 5f 6d |c1 ('Fro|m mod1_m|
|00000480| 61 69 6e 27 29 3b 0d 20 | 20 20 20 50 5f 6d 6f 64 |ain');. |   P_mod|
|00000490| 33 5f 70 72 6f 63 31 20 | 28 27 46 72 6f 6d 20 6d |3_proc1 |('From m|
|000004a0| 6f 64 31 5f 6d 61 69 6e | 27 29 3b 0d 20 20 20 20 |od1_main|');.    |
|000004b0| 77 72 69 74 65 6c 6e 3b | 0d 20 20 20 20 77 72 69 |writeln;|.    wri|
|000004c0| 74 65 6c 6e 20 20 20 20 | 20 20 28 27 54 79 70 65 |teln    |  ('Type|
|000004d0| 20 61 20 39 39 39 20 74 | 6f 20 71 75 69 74 2c 20 | a 999 t|o quit, |
|000004e0| 61 6e 79 20 6f 74 68 65 | 72 20 6e 75 6d 62 65 72 |any othe|r number|
|000004f0| 20 74 6f 20 6c 6f 6f 70 | 27 29 3b 0d 20 20 20 20 | to loop|');.    |
|00000500| 52 65 61 64 6c 6e 20 20 | 20 20 20 20 20 28 67 5f |Readln  |     (g_|
|00000510| 67 6c 6f 62 61 6c 31 29 | 3b 0d 20 20 55 4e 54 49 |global1)|;.  UNTI|
|00000520| 4c 20 28 67 5f 67 6c 6f | 62 61 6c 31 20 3d 20 39 |L (g_glo|bal1 = 9|
|00000530| 39 39 29 3b 0d 45 4e 44 | 2e 00 00 00 00 00 00 00 |99);.END|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00000590| ff f2 20 6e ff f4 34 28 | 00 46 53 42 42 81 4e ba |.. n..4(|.FSBB.N.|
|000005a0| f8 60 4a 00 67 00 00 14 | 32 2e ff f2 44 41 20 2e |.`J.g...|2...DA .|
|000005b0| 0a 58 5f 4d 6f 64 31 2e | 50 61 73 64 02 00 00 00 |.X_Mod1.|Pasd....|
|000005c0| 54 45 58 54 45 44 49 54 | 01 00 00 06 00 3e 00 00 |TEXTEDIT|.....>..|
|000005d0| 00 00 54 45 58 54 45 44 | 49 54 01 00 00 06 00 3e |..TEXTED|IT.....>|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 aa e2 9b 34 00 00 | 04 b9 00 00 01 5c 30 2e |.....4..|.....\0.|
|00000600| ff ee b0 68 00 46 6c 00 | 01 8c 20 6e ff e8 22 68 |...h.Fl.|.. n.."h|
|00000610| 00 50 30 2e ff ee e5 48 | d2 c0 22 ae ff f0 20 6e |.P0....H|.."... n|
|00000620| ff e8 d0 fc 00 5c 2d 48 | ff de 20 08 22 2e ff f0 |.....\-H|.. ."...|
|00000630| 4e ba 07 da 20 2e ff de | 4e ba 09 a2 1d 40 ff e6 |N... ...|N....@..|
|00000640| 0c 00 00 0d 66 00 00 0c | 10 3c 00 01 4e 5e 58 8f |....f...|.<..N^X.|
|00000650| 4e 75 4a 2d fd c0 67 00 | 00 16 0c 2e 00 0c ff e6 |NuJ-..g.|........|
|00000660| 66 00 00 0c 20 3c 00 00 | 01 04 4e ba f7 52 14 2e |f... <..|..N..R..|
|00000670| ff e6 48 82 20 2e ff e8 | 32 2e ff e4 4e ba fc 64 |..H. ...|2...N..d|
|00000680| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 5c 00 00 |.......M|onaco\..|
|00000690| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|000006a0| 00 16 00 00 00 46 00 00 | c1 1c 00 7a 00 00 00 1c |.....F..|...z....|
|000006b0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|000006c0| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 01 5e cc |........|......^.|
|000006d0| 03 ec ff ff 00 00 00 0e | 00 01 6d 18 00 00 00 00 |........|..m.....|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+